home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 49 / 049.d81 / start address fi (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  450b  |  14 lines
  1. 5 poke53280,.:poke53281,.
  2. 10 rem start address finder - k.carroll
  3. 15 print"[147][154]           start address finder"
  4. 16 print"              by k. carroll":poke198,.
  5. 20 input"[154]enter filename";f$
  6. 30 open 2,8,2,f$:get#2,a$,b$:close2
  7. 40 print"[154]start address:";
  8. 50 c$=chr$(0):print asc(a$+c$)+256*asc(b$+c$)
  9. 60 print" [154]would you like to find another? (y[154]/n[154])"
  10. 70 a=peek(203):ifa<>25anda<>39then70
  11. 80 ifa=25thenrun
  12. 90 print"[147][144]load"chr$(34)"tips and tricks"chr$(34)",8"
  13. 92 print"run":poke631,13:poke632,13:poke198,2:end
  14.